object db2dl: Tdb2dl
  Left = 58
  Top = 112
  Width = 517
  Height = 364
  Caption = 'Translate Files'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 16
  object cdir: TLabel
    Left = 46
    Top = 8
    Width = 261
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'cdir'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 12
    Top = 32
    Width = 141
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'xBase Files'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 204
    Top = 32
    Width = 78
    Height = 16
    Caption = 'Delphi Files'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 380
    Top = 48
    Width = 73
    Height = 16
    Alignment = taCenter
    Caption = 'Translating'
  end
  object fromprg: TLabel
    Left = 344
    Top = 72
    Width = 149
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'fromprg'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 408
    Top = 92
    Width = 16
    Height = 16
    Alignment = taCenter
    Caption = 'To'
  end
  object topas: TLabel
    Left = 344
    Top = 116
    Width = 149
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'topas'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object progress: TLabel
    Left = 344
    Top = 140
    Width = 149
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'progress'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object prglist: TListBox
    Left = 11
    Top = 56
    Width = 148
    Height = 226
    Color = clNavy
    ExtendedSelect = False
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    IntegralHeight = True
    ItemHeight = 16
    MultiSelect = True
    ParentFont = False
    Style = lbOwnerDrawFixed
    TabOrder = 0
    OnDblClick = prglistDblClick
    OnDrawItem = prglistDrawItem
  end
  object paslist: TListBox
    Left = 169
    Top = 56
    Width = 148
    Height = 226
    Color = clNavy
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    IntegralHeight = True
    ItemHeight = 16
    ParentFont = False
    Style = lbOwnerDrawFixed
    TabOrder = 1
    OnDblClick = paslistDblClick
    OnDrawItem = paslistDrawItem
  end
  object BitBtn2: TBitBtn
    Left = 332
    Top = 4
    Width = 165
    Height = 25
    Caption = 'Change &Dir'
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object CheckBox1: TCheckBox
    Left = 336
    Top = 192
    Width = 165
    Height = 21
    Caption = 'Do DBW Conversion'
    State = cbChecked
    TabOrder = 3
  end
  object BitBtn3: TBitBtn
    Left = 332
    Top = 228
    Width = 165
    Height = 37
    Caption = '&Begin'
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 12
    Top = 288
    Width = 149
    Height = 25
    Caption = '&Select All'
    TabOrder = 5
    OnClick = BitBtn4Click
  end
  object Button1: TButton
    Left = 332
    Top = 276
    Width = 165
    Height = 37
    Caption = '&Close'
    TabOrder = 6
    OnClick = Button1Click
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'PRG'
    Filter = 'xBase Files|*.PRG'
    Options = [ofHideReadOnly]
    Title = 'Select In Directory Any PRG File'
    Left = 472
    Top = 32
  end
  object MainMenu1: TMainMenu
    Left = 336
    Top = 32
    object Options1: TMenuItem
      Caption = '&Options'
      GroupIndex = 8
      object PRGtoPAS1: TMenuItem
        Caption = '&PRG to PAS'
        Checked = True
        GroupIndex = 9
        OnClick = PRGtoPAS1Click
      end
      object DBFtoPAS1: TMenuItem
        Caption = '&DBF to PAS'
        GroupIndex = 10
        OnClick = DBFtoPAS1Click
      end
    end
  end
end